Option Explicit
Sub B_Sample045()
    Dim myVersion As String
    Select Case Val(Application.Version)
        Case 5
            myVersion = "5.0"
        Case 7
            myVersion = "95"
        Case 8
            myVersion = "97"
        Case 9
            myVersion = "2000"
        Case 10
            myVersion = "2002"
        Case Else
            myVersion = ""
    End Select
    MsgBox "Excel" & myVersion & "", vbInformation
End Sub
